home *** CD-ROM | disk | FTP | other *** search
/ CD School House 10 / CD School House - Education and Games (10.0) - Wayzata Technology (1995).iso / mac / DOS / NETWORKS / TPAPI / NWFSSERV.PA1 < prev    next >
Text File  |  1992-03-02  |  10KB  |  165 lines
  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWFFSERV                                                    **}
  6. {***************************************************************************}
  7. {** Version : 1.2b            ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : FILESERVER                  **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {** Provides Netware File Server Services (most require Console operator) **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991,1992 Tony Covelli                               **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWFSSERV;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   netware, nwvar;
  41.  
  42. TYPE
  43.  
  44.   pFileServerOBJ = ^FileServerOBJ;
  45.   FileServerOBJ  = object (NetwareOBJ)
  46.  
  47.     CONSTRUCTOR Init;
  48.  
  49.     FUNCTION    CheckConsolePrivileges : WORD;
  50.  
  51.     FUNCTION    CheckNetwareVersion             (MinimumVersion, MinimumSubVersion, MinimumRevision,
  52.                                                  MinimumSFT, MinimumTTS : WORD) : WORD;
  53.  
  54.     FUNCTION    ClearConnectionNumber           (ConnectionNumber : WORD) : WORD;
  55.  
  56.     FUNCTION    DisableFileServerLogin : WORD;
  57.  
  58.     FUNCTION    DisableTransactionTracking : WORD;
  59.  
  60.     FUNCTION    DownFileServer                  (ForceFlag : WORD) : WORD;
  61.  
  62.     FUNCTION    EnableFileServerLogin : WORD;
  63.  
  64.     FUNCTION    EnableTransactionTracking : WORD;
  65.  
  66.     FUNCTION    GetBinderyObjectDiskSpaceLeft   (ConnectionID : WORD; ObjectID : OT_BinderyID;
  67.                                                  VAR SystemElapsedTime, UnusedDiskBlocks : LONGINT;
  68.                                                  VAR RestrictionEnforced : WORD) : WORD;
  69.  
  70.     FUNCTION    GetConnectionsOpenFiles         (ConnectionID, ConnectionNumber : WORD;
  71.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  72.                                                  VAR OpenFiles : Conn_Open_Files) : WORD;
  73.  
  74.     FUNCTION    GetConnectionsSemaphores        (ConnectionID, ConnectionNumber : WORD;
  75.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  76.                                                  VAR OpenSemaphores : Conn_Semaphore ) : WORD;
  77.  
  78.     FUNCTION    GetConnectionsTaskInformation   (ConnectionID, ConnectionNumber : WORD; VAR TaskPointer : WORD;
  79.                                                  StructSize : WORD; VAR ConnectionTaskInfo : Conn_Task_Info) : WORD;
  80.  
  81.     FUNCTION    GetConnectionsUsageStats        (ConnectionID, ConnectionNumber, StructSize : WORD;
  82.                                                  VAR ConnectionUsage : Conn_Usage) : WORD;
  83.  
  84.     FUNCTION    GetConnectionsUsingFile         (ConnectionID : WORD; VAR LastRecord, TaskID : WORD;
  85.                                                  DirectoryHandle : BYTE; DirectoryPath : PathNameType;
  86.                                                  StructSize : WORD; VAR ConnUsingFile : Conn_Using_File) : WORD;
  87.  
  88.     FUNCTION    GetDiskCacheStats               (ConnectionID, StructSize : WORD;
  89.                                                  VAR CacheStats : Disk_Cache_Stats) : WORD;
  90.  
  91.     FUNCTION    GetDiskChannelStats             (ConnectionID, ChannelNumber, StructSize : WORD;
  92.                                                  VAR ChannelStats : Disk_Channel_Stats) : WORD;
  93.  
  94.     FUNCTION    GetDiskUtilization              (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
  95.                                                  VAR UsedDirectories, UsedFiles, UsedBlocks : LONGINT) : WORD;
  96.  
  97.     FUNCTION    GetDriveMappingTable            (ConnectionID, StructSize : WORD;
  98.                                                  VAR DriveMappingTable : Drive_Map_Table) : WORD;
  99.  
  100.     FUNCTION    GetFileServerDateAndTime        (VAR DateAndTime : Byte7ArrayType) : WORD;
  101.  
  102.     FUNCTION    GetFileServerDescriptionStrings (VAR CompanyName, Revision : String80Type;
  103.                                                  VAR RevisionDate : String24Type;
  104.                                                  VAR CopyrightNotice : String255Type) : WORD;
  105.  
  106.     FUNCTION    GetFileServerLANIOStats         (ConnectionID, StructSize : WORD;
  107.                                                  VAR ServerLANIOStats : Server_Lan_IO) : WORD;
  108.  
  109.     FUNCTION    GetFileServerLoginStatus        (VAR LoginEnabledFlag : WORD) : WORD;
  110.  
  111.     FUNCTION    GetFileServerMiscInformation    (ConnectionID, StructSize : WORD;
  112.                                                  VAR MiscInfo : Server_Misc_Info) : WORD;
  113.  
  114.     PROCEDURE   GetFileServerName               (ConnectionID : WORD; VAR FileServerName : ObjectNameType);
  115.  
  116.     FUNCTION    GetFileSystemStatistics         (ConnectionID, StructSize : WORD;
  117.                                                  VAR FileSystemStats : File_Sys_Stats) : WORD;
  118.  
  119.     FUNCTION    GetLANDriverConfigInfo          (ConnectionID : WORD; LANBoardNumber : BYTE; StructSize : WORD;
  120.                                                  VAR LANDriverConfig : LAN_Config) : WORD;
  121.  
  122.     FUNCTION    GetLogicalRecordInformation     (ConnectionID : WORD; LogicalRecordName : LogicalRecordNameType;
  123.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  124.                                                  VAR LogicalRecInfo : Logical_Rec_Info) : WORD;
  125.  
  126.     FUNCTION    GetLogicalRecordsByConnection   (ConnectionID : WORD; ConnectionNumber : WORD;
  127.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  128.                                                  VAR LogicalRecord : Logical_Record) : WORD;
  129.  
  130.     FUNCTION    GetPathFromDirectoryEntry       (ConnectionID : WORD; VolumeNumber : BYTE; DirectoryEntry : WORD;
  131.                                                  VAR DirectoryPath : PathNameType) : WORD;
  132.  
  133.     FUNCTION    GetPhysicalDiskStats            (ConnectionID : WORD; PhysicalDiskNumber : BYTE; StructSize : WORD;
  134.                                                  VAR PhysicalDiskStats : Phys_Disk_Stats;
  135.                                                  VAR DriveDefinition : String64Type) : WORD;
  136.  
  137.     FUNCTION    GetPhysicalRecordLocksByFile    (ConnectionID : WORD; DirectoryHandle : BYTE;
  138.                                                  FilePath : PathNameType; VAR LastRecord, LastTask : WORD;
  139.                                                  StructSize : WORD; VAR RecordLock : Phys_Rec_Lock) : WORD;
  140.  
  141.     FUNCTION    GetPhysRecLockByConnectAndFile  (ConnectionID, ConnectionNumber : WORD;
  142.                                                  VolumeNumber : BYTE; DirectoryHandle : WORD;
  143.                                                  FilePath : PathNameType; VAR LastRecord, LastTask : WORD;
  144.                                                  StructSize : WORD; VAR RecordLock : Short_Phys_Rec_Lock) : WORD;
  145.  
  146.     FUNCTION    GetSemaphoreInformation         (ConnectionID : WORD; SemaphoreName : SemaphoreNameType;
  147.                                                  VAR LastRecord, LastTask, OpenCount : WORD;
  148.                                                  VAR SemaphoreValue : INTEGER; VAR ConnectionNumber : WORD;
  149.                                                  VAR TaskNumber : BYTE) : WORD;
  150.  
  151.     FUNCTION    GetServerInformation            (VAR FileServerInformation : File_Serv_Info) : WORD;
  152.  
  153.     FUNCTION    SendConsoleBroadcast            (Message : BroadcastMessageType; ConnectionCount : WORD;
  154.                                                  ConnectionList : ConnectionListType) : WORD;
  155.  
  156.     FUNCTION    SetFileServerDateAndTime        (Year, Month, Day, Hour, Minute, Second : WORD) : WORD;
  157.  
  158.     FUNCTION    TTSGetStats                     (ConnectionID : WORD; VAR LastTask : WORD; StructSize : WORD;
  159.                                                  VAR TTSStats : TTS_Stats) : WORD;
  160.  
  161.     DESTRUCTOR  Done; VIRTUAL;
  162.  
  163.   END;
  164.  
  165.